home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_1 / pubdom.tar / pubdom / brian_w / inputs / in < prev    next >
Text File  |  1990-06-02  |  352b  |  24 lines
  1. %%HP: T(3)A(D)F(.);
  2. \<<
  3.   IF DUP TYPE 5 ==
  4.   THEN OBJ\-> DROP
  5.   END \-> i
  6.   \<< ":" i \->STR OVER
  7. + + i
  8.     IFERR RCL
  9.     THEN DROP
  10.     ELSE
  11.       IF i VTYPE 2
  12. ==
  13.       THEN 1 \->LIST
  14. \->STR DUP SIZE 2 - 3
  15. SWAP SUB
  16.       ELSE \->STR
  17.       END +
  18.     END { -1 } i
  19. \->STR SIZE 3 + + 2
  20. \->LIST 'V' + INPUT
  21. OBJ\-> DUP i STO
  22.   \>>
  23. \>>
  24.